home *** CD-ROM | disk | FTP | other *** search
/ HTBasic 9.3 / HTBasic 9.3.iso / LgcyPlus / disk2 / BARSTEST._ / BARSTEST.
Encoding:
Text File  |  2001-03-02  |  1.2 KB  |  38 lines
  1. 10    ! **************************************************
  2. 20    ! Example: BARS Test
  3. 30    !
  4. 40    ! This program creates a BARS widget with three bars and
  5. 50    ! displays the square root (Root) and natural logarithm
  6. 60    ! (Ln) of numbers (Number) from 0 to 100.
  7. 70    !
  8. 80    ! **************************************************
  9. 90    !
  10. 100   INTEGER M,N
  11. 110   REAL Barval(0:2)
  12. 120   ASSIGN @Bars TO WIDGET "BARS"
  13. 130   CONTROL @Bars;SET ("TITLE":" Example: BARS Test","HEIGHT":300,"WIDTH":300)
  14. 140   CONTROL @Bars;SET ("X":50,"Y":25)
  15. 150   CONTROL @Bars;SET ("SYSTEM MENU":"Quit")
  16. 160   ON EVENT @Bars,"SYSTEM MENU" GOTO Finis
  17. 170   !
  18. 180   CONTROL @Bars;SET ("BAR COUNT":3)
  19. 190   CONTROL @Bars;SET ("CURRENT BAR":1)
  20. 200   CONTROL @Bars;SET ("BAR LABEL":"Number")
  21. 210   CONTROL @Bars;SET ("CURRENT BAR":2)
  22. 220   CONTROL @Bars;SET ("BAR LABEL":"Root")
  23. 230   CONTROL @Bars;SET ("CURRENT BAR":3)
  24. 240   CONTROL @Bars;SET ("BAR LABEL":"Ln")
  25. 250   !
  26. 260   FOR M=1 TO 5
  27. 270     FOR N=1 TO 100
  28. 280       Barval(0)=N
  29. 290       Barval(1)=SQR(N)
  30. 300       Barval(2)=LOG(N)
  31. 310       CONTROL @Bars;SET ("VALUES":Barval(*))
  32. 320       WAIT .05
  33. 330     NEXT N
  34. 340   NEXT M
  35. 350 Finis: !
  36. 360   ASSIGN @Bars TO *        ! Delete BARS widget
  37. 370   END
  38.